Buscar por:

Tradutor de frases inglês > português

Código

Vamos criar um tradutor inglês -> português que traduz frases completas utilizando o motor de tradução do google.

Coloque um tedit, um tbutton e um tWebBrowser (paleta internet) no formulário. O twebBrowser deve ficar oculto.

No evento onShow do formulário digite o seguinte código:

  webBrowser1.Navigate('http://www.google.com.br/language_tools?hl=pt-BR');

No evento onClick do tbutton digite o seguinte código:

  webBrowser1.OleObject.document.forms.item(1).elements.item('text').value := edit1.Text;

  webBrowser1.OleObject.document.forms.item(1).submit();

  button1.Enabled := false;

E para finalizar no evento onDocumentComplete do tWebBrowser digite o seguinte código:

  if webBrowser1.LocationURL <> 'http://www.google.com.br/language_tools?hl=pt-BR' then

  begin

    edit1.Text := webBrowser1.OleObject.document.all.result_box.innerText;

    webBrowser1.Navigate('http://www.google.com.br/language_tools?hl=pt-BR');

  end

  else

    button1.Enabled := true;

Como este tradutor vai utilizar o motor de tradução do google você deve estar CONECTADO NA INTERNET para funcionar.

Basta digitar uma frase em inglês no tedit e clicar no tbutton1 que em instantes ela será traduzida.

Abraços

Renato Félix de Almeida